home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abj.d64 / boot star trek (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  39 lines
  1. 5 DV=PEEK(186)
  2. 10 POKE53280,0:POKE53281,0
  3. 15 IFF1=1THEN35
  4. 16 IFF1=2THEN40
  5. 18 IFF1=3THEN45
  6. 19 IFF1=4THEN50
  7. 20 PRINT"[147]":GOSUB800
  8. 30 F1=1:LOAD"STAR 1",DV,1
  9. 35 F1=2:LOAD"STAR 2",DV,1
  10. 40 F1=3:LOAD"STAR 3",DV,1
  11. 45 F1=4:LOAD"STAR 4",DV,1
  12. 50 PRINT"[144]LOAD"CHR$(34)"STAR TREK V1.D"CHR$(34)","DV
  13. 60 POKE198,6
  14. 70 DATA19,13,82,85,78,13
  15. 80 FORI=1TO6:READX:POKE630+I,X:NEXT
  16. 100 POKE44,24:POKE24*256,0
  17. 200 NEW
  18. 800 PRINT"";:FORY=0TO22:X%=RND(1)*38:PRINTTAB(X%)".":NEXT
  19. 900 PRINT"[146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  20. 995 PRINT"[206]  [206][205][206]    [206][165][206]  [206][205][206]   [206][205]"
  21. 1000 PRINT"[169]   [223][146][206][165]     [146][206][169]   [223][146][206][165]    [223][146][206][165]
  22. 1010 [153]" WAITTHEN WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT FN
  23. 1020 PRINT" [146][206][163][163][206][205] [146][167] [146][206][163][163] [146] [165] [146][206][163][163] [146][206]
  24. 1030 [153]"(null)   (null)WAIT(null)FN WAITTHEN     WAIT FN    WAITSTEPFN
  25. 1040 PRINT" [206][206][165] [146] [165] [146][167] [146][167] [146] [165] [146][167] [146] [165]
  26. 1050 [153]" WAIT(null)TAB(TAB( WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT(null)(null)
  27. 1060 PRINT"[223]   [146][169] [146][206] [146][206] [146][206] [146][206] [223][146][206]
  28. 1065 [153]"WRITTEN & DONATED TO TPUG BY DAVID NEALE";
  29. 1070 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  30. 1080 PRINT"[206]    [206][165][206]   [206][205][206]    [206][165][206][206][165][206][206][165]
  31. 1100 [153]"     WAIT(null)    (null)WAIT(null)FN     WAIT(null) WAIT FN WAIT(null)
  32. 1110 PRINT" [146][167] [146][167] [146] [165] [146][167][164][164] [146] [204][169][146][169]
  33. 1120 [153]" WAITTHEN WAIT(null)TAB(TAB( WAIT(null)  WAIT(null) (null)FN WAIT(null)STEPWAITSTEPFN
  34. 1130 PRINT" [146][167]    [146][169][165]   [146][206]   [146][206][205]
  35. 1140 [153]" WAITTHEN WAITTHEN WAIT FN WAITTHENTOTOTOTO WAITTHEN(null)(null)WAIT (null)
  36. 1150 PRINT" [146][167] [146][167] [146][206][205] [146][206]   [206][165] [146][167][223][223][146][206][165]
  37. 1160 [153]" WAIT(null) WAIT(null) (null)WAIT(null)     WAIT(null) WAIT(null) WAIT(null)
  38. 2000 RETURN
  39.